home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / con artist (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  189 lines
  1. 16 poke53281,0:print"[147]":gosub404
  2. 18 f$="conjob.o"
  3. 20 poke147,0:sys57812f$,8,1:sys62631
  4. 22 poke56,32:clr
  5. 24 l$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  6. 26 gh$="[147]"
  7. 28 rem main menu
  8. 32 poke53280,0:print"[147][155]";:gosub158
  9. 34 printspc(9)m1$:printspc(9)"[221] [159][195] [207] [206]  [193] [210] [212] [201] [211] [212] [155][221]
  10. 36 [153][166]9)"(NULL)  openstr$ave (NULL). (NULL)atthews  list(NULL)":[153][166]9)m2$
  11. 38 [153][166]9)"(NULL)  (NULL) atn right$ (NULL)  (NULL) val (NULL) (NULL)  wait(NULL)":[153][166]9)m2$
  12. 40 [153][166]9)"(NULL)  (NULL)waitlistoad (NULL)ew (NULL)icture  (NULL)":[153][166]9)m2$
  13. 42 [153][166]9)"(NULL)  clr(NULL)waitlistave (NULL)icture atns...(NULL)":[153][166]9)m2$
  14. 44 [153][166]9)"(NULL)  open(NULL)waitlistiew (NULL)icture      (NULL)":[153][166]9)m2$
  15. 46 [153][166]9)"(NULL)  sysstr$waitlistirectory         (NULL)":[153][166]9)m2$
  16. 48 [153][166]9)"(NULL)  (NULL)listwaituit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)  (NULL)":[153][166]9)m3$
  17. 50 t[178]9: [141]166
  18. 52 [141]202
  19. 54 [139] (ky$[178]"(NULL)"[176]ky$[178]"l")[167][141]72:[137]32
  20. 56 [139] (ky$[178]"(NULL)"[176]ky$[178]"s")[167][141]86:[137]32
  21. 58 [139] (ky$[178]"(NULL)"[176]ky$[178]"v")[167][141]100:[137]32
  22. 60 [139] (ky$[178]"str$"[176]ky$[178]"d")[167][141]148:[137]32
  23. 62 [139] (ky$[178]"(NULL)"[176]ky$[178]"q")[167]394
  24. 64 [137]52
  25. 68 [143] load
  26. 72 t[178]16:t$[178]"(NULL)oad which type:":[141]172:[141]166
  27. 74 ky$[178]"":[141]202:[141]184:[145]z[137]222,232,242,252,78
  28. 76 [137]74
  29. 78 [142]
  30. 82 [143] save
  31. 86 t[178]2:t$[178]"(NULL)ave picture as:":[141]172:[141]166
  32. 88 ky$[178]"":[141]202:[141]184:[145]z[137] 262,276,290,304,92
  33. 90 [137] 88
  34. 92 [142]
  35. 96 [143] view picture
  36. 100 [151]53280,0:[151]53281,0:[153]"loadortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  37. 102 [153]"(NULL)sys   (NULL)ress a key to view the picture   waitlist(NULL)"
  38. 104 [153]l$
  39. 106 [153]"(NULL)sys   (NULL)val(NULL)(NULL)(NULL)(NULL) key exits to (NULL)atnright$(NULL) (NULL)enu     waitlist(NULL)"
  40. 108 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  41. 110 [153]"for  (NULL)hile the picture is on the screen":[153]"  press the following:list"
  42. 112 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  43. 114 [153]"(NULL)printasc1-(NULL)val(NULL)wait (NULL)o view picture as left$right$(NULL)val(NULL)      list(NULL)"
  44. 116 [153]l$:[153]l$
  45. 118 [153]"(NULL)printasc3-(NULL)val(NULL)wait (NULL)o view picture as (NULL)(NULL)(NULL)(NULL)right$len(NULL)(NULL)(NULL)(NULL) list(NULL)"
  46. 120 [153]l$:[153]l$
  47. 122 [153]"(NULL)printasc5-(NULL)val(NULL)wait lenhange peekatnlen(NULL)chr$(NULL)(NULL)(NULL)(NULL)str$ color       list(NULL)"
  48. 124 [153]"(NULL)print(NULL)(NULL)(NULL)val: wait left$as no effect in left$right$(NULL)val(NULL) (NULL)ode   list(NULL)"
  49. 126 [153]l$:[153]l$
  50. 128 [153]"(NULL)printasc7-(NULL)val(NULL)wait (NULL)o change peek(NULL)(NULL)str$val(NULL) color        list(NULL)"
  51. 130 [153]l$:[153]l$
  52. 132 [153]"(NULL)print(NULL)val(NULL)(NULL)(NULL)(NULL)wait valxits from viewing picture    waitlist(NULL)"
  53. 134 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  54. 136 [141]202:[139] ky$[179][177][199](13)[167][158]49300:[137]100
  55. 138 [153]"load";:[142]
  56. 144 [143] directory
  57. 148 [158] 49191:[141]212:[139]e$[178]"ok"[167][141]386
  58. 150 [142]
  59. 154 [143] print sub menu
  60. 158 m1$[178]"ortantantantantantantantantantantantantantantantantantantantan^":m2$[178]"-tantantantantantantantantantantantantantantantantantantantan<"
  61. 162 m3$[178]"/tantantantantantantantantantantantantantantantantantantantanexp":dn$[178]""
  62. 164 [142]
  63. 166 [153][166]t)m1$:[153][166]t)"(NULL)    open(NULL)ress a key     list(NULL)":[153][166]t);
  64. 167 [139]t[178]16[167][153]"(NULL) open(NULL), atn, (NULL), str$ or (NULL)val(NULL)  list(NULL)":[137]169
  65. 168 [153]"(NULL) open(NULL), (NULL), (NULL), str$ or (NULL)val(NULL)  list(NULL)"
  66. 169 [153][166]t)m3$:[142]
  67. 170 :
  68. 172 [153]dn$[166]t)m1$:[153][166]t)"(NULL)  "t$"  wait(NULL)":[153][166]t)m2$
  69. 174 [153][166]t)"(NULL)  (NULL)listwaitoala (NULL)ainter     (NULL)":[153][166]t)m2$
  70. 176 [153][166]t)"(NULL)  atnlistwaitdv. atnrt (NULL)tudio   (NULL)":[153][166]t)m2$
  71. 178 [153][166]t)"(NULL)  open(NULL)waitlistlen(NULL) atnrt (NULL)tudio    (NULL)":[153][166]t)m2$
  72. 180 [153][166]t)"(NULL)  forstr$waitlist(NULL)(NULL)str$(NULL)val!           (NULL)":[153][166]t)m2$
  73. 182 [153][166]t)"(NULL)  sys(NULL)val(NULL)(NULL)(NULL)(NULL)waitlist valxit "[200](t$,4)"  (NULL)":[153][166]t)m3$:[142]
  74. 184 [139](ky$[178]"(NULL)"[176]ky$[178]"k")[167]z[178]1:[142]
  75. 186 [139](ky$[178]"atn"[176]ky$[178]"a")[167]z[178]2:[142]
  76. 188 [139](ky$[178]"(NULL)"[176]ky$[178]"o")[167]z[178]3:[142]
  77. 190 [139](ky$[178]"str$"[176]ky$[178]"d")[167]z[178]4:[142]
  78. 192 [139](ky$[178][199](13))[167]z[178]5:[142]
  79. 194 z[178]0:[142]
  80. 198 [143] get key
  81. 202 [161]ky$:[139] ky$[178]"" [167]202
  82. 204 [142]
  83. 208 [143] disk status
  84. 212 [159]15,8,15:[132]15,e,e$,t,s:[160]15:[139] e$[178]"ok" [167] [142]
  85. 214 [153]"valrror:wait"e;e$;t;s"list":[141]386:[142]
  86. 218 [143] koala load
  87. 222 [153]gh$:[141]318:[139] fk$[178]"" [167] [142]
  88. 224 [153]:[153]"(NULL)oading...wait atnwait"[201](f$,14):[158] 49653:[141]212:[142]
  89. 228 [143] load adv art studio
  90. 232 [153]gh$:[141]336:[139] fk$[178]"" [167] [142]
  91. 234 [141]450:[158]49770:[141]212:[142]
  92. 238 [143] load ocp
  93. 242 [153]gh$:[141]354:[139] fk$[178]"" [167] [142]
  94. 244 [141]450:[158]49552:[141]212:[142]
  95. 248 [143] load doodle!
  96. 252 [153]gh$:[141]372:[139] fk$[178]"" [167] [142]
  97. 254 [141]450:[158]49571:[141]212:[142]
  98. 258 [143] save koala
  99. 262 [153]gh$:[141]318:[139] fk$[178]"" [167] [142]
  100. 264 [153]"(NULL)aving...wait atnwait"[201](f$,14):[158]49849:[141]212
  101. 266 [139]e$[178]"ok"[167][151]51135,1
  102. 268 [142]
  103. 272 [143] save adv. art studio
  104. 276 [153]gh$:[141]336:[139] fk$[178]""[167][142]
  105. 278 [153]"(NULL)aving...wait "f$:[158]49874:[141]212
  106. 280 [139]e$[178]"ok"[167][151]51135,1
  107. 282 [142]
  108. 286 [143] save ocp art studio
  109. 288 :
  110. 290 [153]gh$:[141]354:[139] fk$[178]"" [167] [142]
  111. 292 [153]"(NULL)aving...wait "f$:[158]49802:[141]212
  112. 294 [139]e$[178]"ok"[167][151]51135,0
  113. 296 [142]
  114. 300 [143] save doodle!
  115. 304 [153]gh$:[141]372:[139] fk$[178]"" [167] [142]
  116. 306 [153]"(NULL)aving...wait "f$:[158]49824:[141]212
  117. 308 [139]e$[178]"ok"[167][151]51135,0
  118. 310 [142]
  119. 314 [143] koala filename
  120. 318 f$[178]"":fk$[178]"":[153]"(NULL)lease valnter (NULL)oala filename."
  121. 320 [153]"(NULL)o need to enter the atnwait character.":[153]"valxample: pic a quantas"
  122. 322 [141]388
  123. 324 z$[178]"(NULL)oala":[141]424:[139]fk$[178]""[167][142]
  124. 326 fk$[178]fk$[170]"              ":f$[178]"for"[170][200](fk$,14)
  125. 328 [141]390:[142]
  126. 332 [143] adv. studio filename
  127. 336 f$[178]"":fk$[178]"":[153]"(NULL)lease valnter atndv. atnrt (NULL)tudio filename."
  128. 338 [153]"(NULL)o need to enter the mpicwait characters.":[153]"valxample: baboon"
  129. 340 [141]388
  130. 342 z$[178]"(NULL)(NULL)(NULL)str$right$(NULL)":[141]424:[139]fk$[178]""[167][142]
  131. 344 fk$[178]fk$[170]"               ":f$[178][200](fk$,12)[170]"mpic"
  132. 346 [141]390:[142]
  133. 350 [143] ocp studio filename
  134. 354 f$[178]"":fk$[178]"":[153]"(NULL)lease valnter (NULL)len(NULL) atnrt (NULL)tudio filename."
  135. 356 [153]"(NULL)o need to enter the picwait characters.":[153]"valxample: frontcover"
  136. 358 [141]388
  137. 360 z$[178]"(NULL)len(NULL)":[141]424:[139]fk$[178]""[167][142]
  138. 362 fk$[178]fk$[170]"               ":f$[178][200](fk$,13)[170]"pic"
  139. 364 [141]390:[142]
  140. 368 [143] doodle filename
  141. 372 f$[178]"":fk$[178]"":[153]"(NULL)lease valnter str$oodle! filename."
  142. 374 [153]"(NULL)o need to enter the ddwait characters.":[153]"valxample: mona lisa"
  143. 376 [141]388
  144. 378 z$[178]"str$(NULL)(NULL)str$(NULL)val!":[141]424:[139]fk$[178]""[167][142]
  145. 380 f$[178]"dd"[170]fk$:[139][195](f$)[177]16[167]f$[178][200](f$,16)
  146. 382 [141]390:[142]
  147. 386 [153][166]7)"(NULL)ress any key...waitlist":[141]202:[153]"load";:[142]
  148. 388 [153]"(NULL)ress (NULL